Private Sub play_Click()
play.Caption = "play now"
Dim a, b, c, d, e, f As Single
a = InputBox("enter number")
b = InputBox("enter number")
a = Val(a)
b = Val(b)
c = a + b
d = a - b
e = a * b
f = a / b
Print "jame="; c, "tafrigh="; d
Print
Print "zarb="; e, "taghsim="; f
End Sub